home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_300 / 365_01 / cmd2.c < prev    next >
C/C++ Source or Header  |  1992-04-04  |  18KB  |  943 lines
  1. /* cmd2.c */
  2.  
  3. /* Author:
  4.  *    Steve Kirkendall
  5.  *    14407 SW Teal Blvd. #C
  6.  *    Beaverton, OR 97005
  7.  *    kirkenda@cs.pdx.edu
  8.  */
  9.  
  10.  
  11. /* This file contains some of the commands - mostly ones that change text */
  12.  
  13. #include "config.h"
  14. #include "ctype.h"
  15. #include "vi.h"
  16. #include "regexp.h"
  17. #if TOS
  18. # include <stat.h>
  19. #else
  20. # if OSK
  21. #  include "osk.h"
  22. # else
  23. #  if AMIGA
  24. #   include "amistat.h"
  25. #  else
  26. #   include <sys/stat.h>
  27. #  endif
  28. # endif
  29. #endif
  30.  
  31.  
  32. /*ARGSUSED*/
  33. void cmd_substitute(frommark, tomark, cmd, bang, extra)
  34.     MARK    frommark;
  35.     MARK    tomark;
  36.     CMD    cmd;
  37.     int    bang;
  38.     char    *extra;    /* rest of the command line */
  39. {
  40.     char    *line;    /* a line from the file */
  41.     regexp    *re;    /* the compiled search expression */
  42.     char    *subst;    /* the substitution string */
  43.     char    *opt;    /* substitution options */
  44.     long    l;    /* a line number */
  45.     char    *s, *d;    /* used during subtitutions */
  46.     char    *conf;    /* used during confirmation */
  47.     long    chline;    /* # of lines changed */
  48.     long    chsub;    /* # of substitutions made */
  49.     static    optp;    /* boolean option: print when done? */
  50.     static    optg;    /* boolean option: substitute globally in line? */
  51.     static    optc;    /* boolean option: confirm before subst? */
  52. #ifndef CRUNCH
  53.     long    oldnlines;
  54. #endif
  55.  
  56.  
  57.     /* for now, assume this will fail */
  58.     rptlines = -1L;
  59.  
  60.     if (cmd == CMD_SUBAGAIN)
  61.     {
  62. #ifndef NO_MAGIC
  63.         if (*o_magic)
  64.             subst = "~";
  65.         else
  66. #endif
  67.         subst = "\\~";
  68.         re = regcomp("");
  69.  
  70.         /* if visual "&", then turn off the "p" and "c" options */
  71.         if (bang)
  72.         {
  73.             optp = optc = FALSE;
  74.         }
  75.     }
  76.     else /* CMD_SUBSTITUTE */
  77.     {
  78.         /* make sure we got a search pattern */
  79.         if (*extra != '/' && *extra != '?')
  80.         {
  81.             msg("Usage: s/regular expression/new text/");
  82.             return;
  83.         }
  84.  
  85.         /* parse & compile the search pattern */
  86.         subst = parseptrn(extra);
  87.         re = regcomp(extra + 1);
  88.     }
  89.  
  90.     /* abort if RE error -- error message already given by regcomp() */
  91.     if (!re)
  92.     {
  93.         return;
  94.     }
  95.  
  96.     if (cmd == CMD_SUBSTITUTE)
  97.     {
  98.         /* parse the substitution string & find the option string */
  99.         for (opt = subst; *opt && *opt != *extra; opt++)
  100.         {
  101.             if (*opt == '\\' && opt[1])
  102.             {
  103.                 opt++;
  104.             }
  105.         }
  106.         if (*opt)
  107.         {
  108.             *opt++ = '\0';
  109.         }
  110.  
  111.         /* analyse the option string */
  112.         if (!*o_edcompatible)
  113.         {
  114.             optp = optg = optc = FALSE;
  115.         }
  116.         while (*opt)
  117.         {
  118.             switch (*opt++)
  119.             {
  120.               case 'p':    optp = !optp;    break;
  121.               case 'g':    optg = !optg;    break;
  122.               case 'c':    optc = !optc;    break;
  123.               case ' ':
  124.               case '\t':            break;
  125.               default:
  126.                 msg("Subst options are p, c, and g -- not %c", opt[-1]);
  127.                 return;
  128.             }
  129.         }
  130.     }
  131.  
  132.     /* if "c" or "p" flag was given, and we're in visual mode, then NEWLINE */
  133.     if ((optc || optp) && mode == MODE_VI)
  134.     {
  135.         addch('\n');
  136.         exrefresh();
  137.     }
  138.  
  139.     ChangeText
  140.     {
  141.         /* reset the change counters */
  142.         chline = chsub = 0L;
  143.  
  144.         /* for each selected line */
  145.         for (l = markline(frommark); l <= markline(tomark); l++)
  146.         {
  147.             /* fetch the line */
  148.             line = fetchline(l);
  149.  
  150.             /* if it contains the search pattern... */
  151.             if (regexec(re, line, TRUE))
  152.             {
  153.                 /* increment the line change counter */
  154.                 chline++;
  155.  
  156.                 /* initialize the pointers */
  157.                 s = line;
  158.                 d = tmpblk.c;
  159.  
  160.                 /* do once or globally ... */
  161.                 do
  162.                 {
  163. #ifndef CRUNCH
  164.                     /* confirm, if necessary */
  165.                     if (optc)
  166.                     {
  167.                         for (conf = line; conf < re->startp[0]; conf++)
  168.                             addch(*conf);
  169.                         standout();
  170.                         for ( ; conf < re->endp[0]; conf++)
  171.                             addch(*conf);
  172.                         standend();
  173.                         for (; *conf; conf++)
  174.                             addch(*conf);
  175.                         addch('\n');
  176.                         exrefresh();
  177.                         if (getkey(0) != 'y')
  178.                         {
  179.                             /* copy accross the original chars */
  180.                             while (s < re->endp[0])
  181.                                 *d++ = *s++;
  182.  
  183.                             /* skip to next match on this line, if any */
  184.                             goto Continue;
  185.                         }
  186.                     }
  187. #endif /* not CRUNCH */
  188.  
  189.                     /* increment the substitution change counter */
  190.                     chsub++;
  191.  
  192.                     /* copy stuff from before the match */
  193.                     while (s < re->startp[0])
  194.                     {
  195.                         *d++ = *s++;
  196.                     }
  197.  
  198.                     /* substitute for the matched part */
  199.                     regsub(re, subst, d);
  200.                     s = re->endp[0];
  201.                     d += strlen(d);
  202.  
  203. Continue:
  204.                     /* if this regexp could conceivably match
  205.                      * a zero-length string, then require at
  206.                      * least 1 unmatched character between
  207.                      * matches.
  208.                      */
  209.                     if (re->minlen == 0)
  210.                     {
  211.                         if (!*s)
  212.                             break;
  213.                         *d++ = *s++;
  214.                     }
  215.  
  216.                 } while (optg && regexec(re, s, FALSE));
  217.  
  218.                 /* copy stuff from after the match */
  219.                 while (*d++ = *s++)    /* yes, ASSIGNMENT! */
  220.                 {
  221.                 }
  222.  
  223. #ifndef CRUNCH
  224.                 /* NOTE: since the substitution text is allowed to have ^Ms which are
  225.                  * translated into newlines, it is possible that the number of lines
  226.                  * in the file will increase after each line has been substituted.
  227.                  * we need to adjust for this.
  228.                  */
  229.                 oldnlines = nlines;
  230. #endif
  231.  
  232.                 /* replace the old version of the line with the new */
  233.                 d[-1] = '\n';
  234.                 d[0] = '\0';
  235.                 change(MARK_AT_LINE(l), MARK_AT_LINE(l + 1), tmpblk.c);
  236.  
  237. #ifndef CRUNCH
  238.                 l += nlines - oldnlines;
  239.                 tomark += MARK_AT_LINE(nlines - oldnlines);
  240. #endif
  241.  
  242.                 /* if supposed to print it, do so */
  243.                 if (optp)
  244.                 {
  245.                     addstr(tmpblk.c);
  246.                     exrefresh();
  247.                 }
  248.  
  249.                 /* move the cursor to that line */
  250.                 cursor = MARK_AT_LINE(l);
  251.             }
  252.         }
  253.     }
  254.  
  255.     /* free the regexp */
  256.     free(re);
  257.  
  258.     /* if done from within a ":g" command, then finish silently */
  259.     if (doingglobal)
  260.     {
  261.         rptlines = chline;
  262.         rptlabel = "changed";
  263.         return;
  264.     }
  265.  
  266.     /* Reporting */
  267.     if (chsub == 0)
  268.     {
  269.         msg("Substitution failed");
  270.     }
  271.     else if (chline >= *o_report)
  272.     {
  273.         msg("%ld substitutions on %ld lines", chsub, chline);
  274.     }
  275.     rptlines = 0L;
  276. }
  277.  
  278.  
  279.  
  280.  
  281. /*ARGSUSED*/
  282. void cmd_delete(frommark, tomark, cmd, bang, extra)
  283.     MARK    frommark;
  284.     MARK    tomark;
  285.     CMD    cmd;
  286.     int    bang;
  287.     char    *extra;
  288. {
  289.     MARK    curs2;    /* an altered form of the cursor */
  290.  
  291.     /* choose your cut buffer */
  292.     if (*extra == '"')
  293.     {
  294.         extra++;
  295.     }
  296.     if (*extra)
  297.     {
  298.         cutname(*extra);
  299.     }
  300.  
  301.     /* make sure we're talking about whole lines here */
  302.     frommark = frommark & ~(BLKSIZE - 1);
  303.     tomark = (tomark & ~(BLKSIZE - 1)) + BLKSIZE;
  304.  
  305.     /* yank the lines */
  306.     cut(frommark, tomark);
  307.  
  308.     /* if CMD_DELETE then delete the lines */
  309.     if (cmd != CMD_YANK)
  310.     {
  311.         curs2 = cursor;
  312.         ChangeText
  313.         {
  314.             /* delete the lines */
  315.             delete(frommark, tomark);
  316.         }
  317.         if (curs2 > tomark)
  318.         {
  319.             cursor = curs2 - tomark + frommark;
  320.         }
  321.         else if (curs2 > frommark)
  322.         {
  323.             cursor = frommark;
  324.         }
  325.     }
  326. }
  327.  
  328.  
  329. /*ARGSUSED*/
  330. void cmd_append(frommark, tomark, cmd, bang, extra)
  331.     MARK    frommark;
  332.     MARK    tomark;
  333.     CMD    cmd;
  334.     int    bang;
  335.     char    *extra;
  336. {
  337.     long    l;    /* line counter */
  338.  
  339. #ifndef CRUNCH
  340.     /* if '!' then toggle auto-indent */
  341.     if (bang)
  342.     {
  343.         *o_autoindent = !*o_autoindent;
  344.     }
  345. #endif
  346.  
  347.     ChangeText
  348.     {
  349.         /* if we're doing a change, delete the old version */
  350.         if (cmd == CMD_CHANGE)
  351.         {
  352.             /* delete 'em */
  353.             cmd_delete(frommark, tomark, cmd, bang, extra);
  354.         }
  355.  
  356.         /* new lines start at the frommark line, or after it */
  357.         l = markline(frommark);
  358.         if (cmd == CMD_APPEND)
  359.         {
  360.              l++;
  361.         }
  362.  
  363.         /* get lines until no more lines, or "." line, and insert them */
  364.         while (vgets('\0', tmpblk.c, BLKSIZE) >= 0)
  365.         {
  366.             addch('\n');
  367.             if (!strcmp(tmpblk.c, "."))
  368.             {
  369.                 break;
  370.             }
  371.  
  372.             strcat(tmpblk.c, "\n");
  373.             add(MARK_AT_LINE(l), tmpblk.c);
  374.             l++;
  375.         }
  376.     }
  377.  
  378.     /* on the odd chance that we're calling this from vi mode ... */
  379.     redraw(MARK_UNSET, FALSE);
  380. }
  381.  
  382.  
  383. /*ARGSUSED*/
  384. void cmd_put(frommark, tomark, cmd, bang, extra)
  385.     MARK    frommark;
  386.     MARK    tomark;
  387.     CMD    cmd;
  388.     int    bang;
  389.     char    *extra;
  390. {
  391.     /* choose your cut buffer */
  392.     if (*extra == '"')
  393.     {
  394.         extra++;
  395.     }
  396.     if (*extra)
  397.     {
  398.         cutname(*extra);
  399.     }
  400.  
  401.     /* paste it */
  402.     ChangeText
  403.     {
  404.         cursor = paste(frommark, TRUE, FALSE);
  405.     }
  406. }
  407.  
  408.  
  409. /*ARGSUSED*/
  410. void cmd_join(frommark, tomark, cmd, bang, extra)
  411.     MARK    frommark;
  412.     MARK    tomark;
  413.     CMD    cmd;
  414.     int    bang;
  415.     char    *extra;
  416. {
  417.     long    l;
  418.     char    *scan;
  419.     int    len;    /* length of the new line */
  420.  
  421.     /* if only one line is specifi